#!/usr/bin/perl

use DBI;

use Cwd;

$baseurl = getcwd;

print "baseurl: " . $baseurl . "\n";

# local system variables
$connect = $baseurl . '/connect.pl';
require $connect;

@folders = qw(
authorities
authorities_textfiles
authorities_tracings_textfiles
authorities_hierarchies_textfiles
authorities_hierarchies_trees_textfiles
authorities_indexed
authorities_indexed_textfiles
bibs
bibs_textfiles
bibs_utf8_encoded
hathi
hathi_xmls
hathi_bibs
hathi_bibs_textfiles
hathi_items
hathi_items_textfiles
hathi_holdings_textfiles
items
items_textfiles
checkins
checkins_textfiles
courses
courses_textfiles
orders
orders_textfiles
locations
locations_textfiles
tocs_970s_bibnumbers
tocs_970s_textfiles
tocs_970s_XML_files
universal_ids
universal_ids_textfiles
items_item_sequences
items_item_sequences_textfiles
holdings_textfiles
tracings_textfiles
bibs_deleted
checkins_deleted
courses_deleted
items_deleted
orders_deleted
authorities_deleted
holdings_deleted
lcsh_files/lcsh_alt_label_textfiles
lcsh_files/lcsh_broader_label_textfiles
lcsh_files/lcsh_narrower_label_textfiles
lcsh_files/lcsh_pref_label_textfiles
consortium_bibs_textfiles
consortium_items_textfiles
consortium_holdings_textfiles
consortium_hathi_bibs_textfiles
consortium_hathi_items_textfiles
consortium_hathi_holdings_textfiles
consortium_checkins_textfiles
consortium_courses_textfiles
consortium_orders_textfiles
consortium_authorities_textfiles
consortium_locations_textfiles
consortium_bibs_deleted
consortium_items_deleted
consortium_holdings_deleted
consortium_checkins_deleted
consortium_courses_deleted
consortium_orders_deleted
consortium_authorities_deleted);

foreach $folder (@folders) {
    $this_folder = $baseurl . '/' . $folder;
    system(mkdir $this_folder);
}

